unit untfrmDirectorHistory;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Buttons, Vcl.StdCtrls,
  Vcl.ExtCtrls, Vcl.ActnList,
  Obj_Consts;

type
  TfrmDirectorHistory = class(TForm)
    actlst1: TActionList;
    actNew: TAction;
    actEdit: TAction;
    actDelete: TAction;
    pnlHist: TPanel;
    lstHist: TListBox;
    pnlInfo: TPanel;
    lblObjEndDate: TLabel;
    lblObjReason: TLabel;
    lblObjStartDate: TLabel;
    btnObjDocView: TSpeedButton;
    btnNewExecutiveCollegial: TSpeedButton;
    btnEdit: TSpeedButton;
    btnDelete: TSpeedButton;
    lvObjects: TListView;
  private
    { Private declarations }
    FObj: TObj;
    FField: TStaffGroupList;
    FDateStart,
    FDateEnd,
    FReason: Integer;
    FReadOnly: Boolean;
    FSelectedOrdNum: Integer;
    procedure FillForm;
    procedure FillDataByOrdNum(AOrdNum: Integer);
  public
    { Public declarations }
  class procedure ShowObj(AObj: TObj; AField: TStaffGroupList; AReadOnly: Boolean);
  end;

var
  frmDirectorHistory: TfrmDirectorHistory;

implementation

{$R *.dfm}

{ TfrmDirectorHistory }

procedure TfrmDirectorHistory.FillDataByOrdNum(AOrdNum: Integer);
begin

end;

procedure TfrmDirectorHistory.FillForm;
begin

end;

class procedure TfrmDirectorHistory.ShowObj(AObj: TObj; AField: TStaffGroupList;
  AReadOnly: Boolean);
var
  frm: TfrmDirectorHistory;
begin
  frm := TfrmDirectorHistory.Create(nil);
  try
    frm.FObj := AObj;
    frm.FField := AField;
    frm.FReadOnly := AReadOnly;
    frm.FillForm;
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

end.
